home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 13
/
AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso
/
rexx
/
polynomial.scrx
< prev
next >
Wrap
Text File
|
1997-11-01
|
900b
|
36 lines
/* SciCalc Scientific Calculator
by Brian Savage copyright 1997
Arexx script to solve a 5th order polynomial of the form
a+b*x+c*x**2+d*x**3+e*x**4+f*x**5=0. Can be used for lower
order polynomials as well (just set higher order coefficients
to zero).
*/
options results
getval /* x -> from display */
parse var result x
getreg 1 /* a -> from register #1 */
parse var result a
getreg 2 /* b -> from register #2 */
parse var result b
getreg 3 /* c -> from register #3 */
parse var result c
getreg 4 /* d -> from register #4 */
parse var result d
getreg 5 /* e -> from register #5 */
parse var result e
getreg 6 /* f -> from register #6 */
parse var result f
putval a+b*x+c*x**2+d*x**3+e*x**4+f*x**5